﻿Imports Entidad
Imports System.Data
Imports System.Data.SqlClient
Public Class DocumentoClienteBultoDADPUBDatos

    Sub registrarDocumentoClienteBultoDADPUB(bultoDADPUB As DocumentoClienteBultoDADPB)
        Dim conex As New Conexion
        Dim coneccion As SqlConnection = conex.conectar()
        coneccion.Open()
        Dim query As String = "INSERT INTO Documento_Cliente_Bulto_Detalle_DADPB(CIA,SUC_Codigo, " & _
                              "TDOC_Codigo,DCI_Codigo,DCB_Codigo,DBD_Codigo,DADP_Codigo,BAN_Codigo,DCDB_Activo) " & _
                              "VALUES(@CIA,@SUC,@TDOC,@DCICOD,@DCBCOD,@DBDCOD,@DADP,@BAN,'1')"

        Dim comando As New SqlCommand
        With comando
            .Connection = coneccion
            .CommandText = query
            .Parameters.AddWithValue("@CIA", bultoDADPUB.CIA)
            .Parameters.AddWithValue("@SUC", bultoDADPUB.SUC_Codigo)
            .Parameters.AddWithValue("@TDOC", bultoDADPUB.TDOC_Codigo)
            .Parameters.AddWithValue("@DCICOD", bultoDADPUB.DCI_Codigo)
            .Parameters.AddWithValue("@DCBCOD", bultoDADPUB.DCB_Codigo)
            .Parameters.AddWithValue("@DBDCOD", bultoDADPUB.DBD_Codigo)
            .Parameters.AddWithValue("@DADP", bultoDADPUB.DADP_Codigo)
            .Parameters.AddWithValue("@BAN", bultoDADPUB.BAN_Codigo)
            .ExecuteNonQuery()
        End With
        coneccion.Close()
    End Sub

End Class
